(font-lock-set-defaults-1): Set variable alist here.

diff --git a/lisp/font-lock.el b/lisp/font-lock.el
index eb69a93f8467a13db65d9312e35be92d44519151..04d422b7942faf682d499814a39a524a9c72556a 100644 (file)
--- a/lisp/font-lock.el
+++ b/lisp/font-lock.el
@@ -1465,8 +1465,9 @@ A LEVEL of nil is equal to a LEVEL of 0, a LEVEL of t is equal to
     (when (nth 4 defaults)
       (set (make-local-variable 'font-lock-beginning-of-syntax-function)
           (nth 4 defaults)))
-    ;; The variable alist is set in font-core.el.
-
+    ;; Variable alist?
+    (dolist (x (nthcdr 5 defaults))
+      (set (make-local-variable (car x)) (cdr x)))
     ;; Setup `font-lock-keywords' last because its value might depend
     ;; on other settings (e.g. font-lock-compile-keywords uses
     ;; font-lock-beginning-of-syntax-function).